home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / netdmo.exe / SETMODE.FRM < prev    next >
Text File  |  1993-12-10  |  6KB  |  223 lines
  1. Version 1.00
  2. BEGIN Form Setmode
  3.     AutoRedraw   = 0
  4.     BackColor    = QBColor(1)
  5.     BorderStyle  = 1
  6.     Caption      = "Set Message Mode"
  7.     ControlBox   = -1
  8.     Enabled      = -1
  9.     ForeColor    = QBColor(0)
  10.     Height       = Char(22)
  11.     Left         = Char(3)
  12.     MaxButton    = -1
  13.     MinButton    = -1
  14.     MousePointer = 0
  15.     Tag          = ""
  16.     Top          = Char(1)
  17.     Visible      = -1
  18.     Width        = Char(74)
  19.     WindowState  = 0
  20.     BEGIN Frame Frame1
  21.         BackColor    = QBColor(1)
  22.         Caption      = ""
  23.         DragMode     = 0
  24.         Enabled      = -1
  25.         ForeColor    = QBColor(0)
  26.         Height       = Char(9)
  27.         Left         = Char(2)
  28.         MousePointer = 0
  29.         TabIndex     = 5
  30.         Tag          = ""
  31.         Top          = Char(2)
  32.         Visible      = -1
  33.         Width        = Char(14)
  34.         BEGIN OptionButton mode1
  35.             BackColor    = QBColor(1)
  36.             Caption      = "Mode 1"
  37.             DragMode     = 0
  38.             Enabled      = -1
  39.             ForeColor    = QBColor(15)
  40.             Height       = Char(1)
  41.             Left         = Char(0)
  42.             MousePointer = 0
  43.             TabIndex     = 1
  44.             TabStop      = 0
  45.             Tag          = ""
  46.             Top          = Char(2)
  47.             Value        = 0
  48.             Visible      = -1
  49.             Width        = Char(11)
  50.         END
  51.         BEGIN OptionButton mode2
  52.             BackColor    = QBColor(1)
  53.             Caption      = "Mode 2"
  54.             DragMode     = 0
  55.             Enabled      = -1
  56.             ForeColor    = QBColor(15)
  57.             Height       = Char(1)
  58.             Left         = Char(0)
  59.             MousePointer = 0
  60.             TabIndex     = 2
  61.             TabStop      = 0
  62.             Tag          = ""
  63.             Top          = Char(4)
  64.             Value        = 0
  65.             Visible      = -1
  66.             Width        = Char(11)
  67.         END
  68.         BEGIN OptionButton mode3
  69.             BackColor    = QBColor(1)
  70.             Caption      = "Mode 3"
  71.             DragMode     = 0
  72.             Enabled      = -1
  73.             ForeColor    = QBColor(15)
  74.             Height       = Char(1)
  75.             Left         = Char(0)
  76.             MousePointer = 0
  77.             TabIndex     = 3
  78.             TabStop      = 0
  79.             Tag          = ""
  80.             Top          = Char(6)
  81.             Value        = 0
  82.             Visible      = -1
  83.             Width        = Char(11)
  84.         END
  85.         BEGIN OptionButton Mode0
  86.             BackColor    = QBColor(1)
  87.             Caption      = "Mode 0"
  88.             DragMode     = 0
  89.             Enabled      = -1
  90.             ForeColor    = QBColor(15)
  91.             Height       = Char(1)
  92.             Left         = Char(0)
  93.             MousePointer = 0
  94.             TabIndex     = 0
  95.             TabStop      = -1
  96.             Tag          = ""
  97.             Top          = Char(0)
  98.             Value        = -1
  99.             Visible      = -1
  100.             Width        = Char(11)
  101.         END
  102.     END
  103.     BEGIN CommandButton okbuton
  104.         BackColor    = QBColor(7)
  105.         Cancel       = 0
  106.         Caption      = "OK"
  107.         Default      = 0
  108.         DragMode     = 0
  109.         Enabled      = -1
  110.         Height       = Char(3)
  111.         Left         = Char(2)
  112.         MousePointer = 0
  113.         TabIndex     = 4
  114.         TabStop      = -1
  115.         Tag          = ""
  116.         Top          = Char(12)
  117.         Visible      = -1
  118.         Width        = Char(14)
  119.     END
  120.     BEGIN TextBox Text1
  121.         BackColor    = QBColor(1)
  122.         BorderStyle  = 1
  123.         DragMode     = 0
  124.         Enabled      = -1
  125.         ForeColor    = QBColor(15)
  126.         Height       = Char(18)
  127.         Left         = Char(19)
  128.         MousePointer = 0
  129.         MultiLine    = -1
  130.         ScrollBars   = 0
  131.         TabIndex     = 6
  132.         TabStop      = -1
  133.         Tag          = ""
  134.         Text         = "Text1"
  135.         Top          = Char(2)
  136.         Visible      = -1
  137.         Width        = Char(52)
  138.     END
  139.     BEGIN Label Label1
  140.         Alignment    = 0
  141.         AutoSize     = 0
  142.         BackColor    = QBColor(1)
  143.         BorderStyle  = 0
  144.         Caption      = "Select Mode"
  145.         DragMode     = 0
  146.         Enabled      = -1
  147.         ForeColor    = QBColor(15)
  148.         Height       = Char(1)
  149.         Left         = Char(3)
  150.         MousePointer = 0
  151.         TabIndex     = 7
  152.         Tag          = ""
  153.         Top          = Char(1)
  154.         Visible      = -1
  155.         Width        = Char(12)
  156.     END
  157.     BEGIN Label Label2
  158.         Alignment    = 0
  159.         AutoSize     = 0
  160.         BackColor    = QBColor(1)
  161.         BorderStyle  = 0
  162.         Caption      = "Mode Description"
  163.         DragMode     = 0
  164.         Enabled      = -1
  165.         ForeColor    = QBColor(15)
  166.         Height       = Char(1)
  167.         Left         = Char(20)
  168.         MousePointer = 0
  169.         TabIndex     = 8
  170.         Tag          = ""
  171.         Top          = Char(1)
  172.         Visible      = -1
  173.         Width        = Char(16)
  174.     END
  175. END
  176. '$FORM Netdemo
  177. TYPE SBMode
  178.     Mode AS INTEGER
  179. END TYPE
  180. DECLARE SUB SetBroadcastMode (SetMode1 AS SBMode)
  181.  
  182. SUB Form_Load ()
  183. CRLF$ = CHR$(13) + CHR$(10)
  184. text1.text = "Mode 0:" + CRLF$
  185. text1.text = text1.text + " The server stores messages from users and the" + CRLF$
  186. text1.text = text1.text + " server.The shell automaticaly gets the message" + CRLF$
  187. text1.text = text1.text + " and displays it on the workstation." + CRLF$
  188. text1.text = text1.text + "Mode 1:" + CRLF$
  189. text1.text = text1.text + " The server rejects messages from the users and" + CRLF$
  190. text1.text = text1.text + " accepts server messages. The shell automaticaly" + CRLF$
  191. text1.text = text1.text + " displays the message on the workstation." + CRLF$
  192. text1.text = text1.text + "Mode 2:" + CRLF$
  193. text1.text = text1.text + " The server rejects messages from the users and" + CRLF$
  194. text1.text = text1.text + " accepts server messages. In this mode the shell" + CRLF$
  195. text1.text = text1.text + " does not display the message. An application " + CRLF$
  196. text1.text = text1.text + " can call GetBroadcastMsg to retreive the most " + CRLF$
  197. text1.text = text1.text + " recent message." + CRLF$
  198. text1.text = text1.text + "Mode 3:" + CRLF$
  199. text1.text = text1.text + " The server rejects messages from the users and" + CRLF$
  200. text1.text = text1.text + " server. The shell does not display the the" + CRLF$
  201. text1.text = text1.text + " message. An application can call " + CRLF$
  202. text1.text = text1.text + " GetBroadcastMSG to retreive the most recent" + CRLF$
  203. text1.text = text1.text + " message."
  204.  
  205.  
  206. END SUB
  207.  
  208. SUB OKButon_Click ()
  209.  
  210. DIM SetMode1 AS SBMode
  211.  
  212. IF mode0.Value = -1 THEN SetMode1.Mode = 0
  213. IF mode1.Value = -1 THEN SetMode1.Mode = 1
  214. IF mode2.Value = -1 THEN SetMode1.Mode = 2
  215. IF mode3.Value = -1 THEN SetMode1.Mode = 3
  216. CALL SetBroadcastMode(SetMode1)    'Call the Procedure
  217. msg$ = "Mode has been set to " + STR$(SetMode1.Mode)
  218. MSGBOX msg$, 0, "Selected Mode"
  219. UNLOAD SetMode
  220. Netdemo.SHOW
  221. END SUB
  222.  
  223.